home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078A.ZIP / PGPG0991.ZIP / PATCH.LSP < prev    next >
Lisp/Scheme  |  1991-08-29  |  2KB  |  95 lines
  1. ;***************************************************/
  2. ;%    ParaDraft  -  Source code (c) ALL RIGHTS RESERVED
  3. ;%                       Copyright (c) ParaWare Systems, 1991
  4. ;%
  5. ;%
  6. ;%     PGINIT file for EARLIER VERIONS of AutoCAD 
  7. ;%      
  8. ;***************************************************/
  9.  
  10. ; Add the complete file without modifications into ACAD.LSP
  11. ; for loading it automatically
  12.  
  13. (setq *pgpg-shell* "PGSHELL")
  14.  
  15. (setq *pgpg-10* nil)
  16.  
  17. (defun c:pgpg()
  18.  (load (strcat *pgpg-dir* "pgpg"))
  19. )
  20. (defun c:pgrun()
  21.  (Setq *pgpg-demo* nil
  22.        *pgpg-expert* nil
  23.        *pgpg-calmode* nil)
  24.  (load (strcat *pgpg-dir* "pgrun"))
  25. )
  26.  
  27. (defun c:pgcustomload()
  28.  (load (strcat *pgpg-dir* "pgcustom"))
  29. )
  30.  
  31. (setq *pg-menu* (strcase (getvar "MENUNAME")))
  32.  
  33. (defun c:pgmenu( / mnu pg-mnu)
  34.  (setq mnu (strcase (getvar "MENUNAME")))
  35.  (setq pg-mnu (strcase (strcat *pgpg-dir* "pgmenu")))
  36.  (if (= mnu pg-mnu)
  37.     (princ "\nParaDraft menu is already loaded")
  38.     (progn
  39.       (setq *pg-menu*  mnu)
  40.       (command ".MENU" pg-mnu)
  41.       (if c:pgpgset (menucmd "P2=P2b"))
  42.       (if *pgpg-demo* (menucmd "P7=P7b"))
  43.     )
  44.  )
  45.  (princ)
  46. )
  47.  
  48. (defun c:pgdemo()
  49.  (Setq *pgpg-demo* T
  50.        *pgpg-expert* T
  51.        *pgpg-calmode* "CALC")
  52.  (load (strcat *pgpg-dir* "pgrun"))
  53. )
  54. (defun slide-show( slides / slide )
  55. (Setvar "cmdecho" 0)
  56. (princ "ParaDraft information follows..")
  57.  (Foreach slide slides
  58.    (command "vslide" (strcat *pgpg-dir* "pgdraft(" (car slide) ")"))
  59.    (command "delay" (* 1000 (Cadr slide)))
  60.  )
  61. (getpoint "\nPress return to continue...")
  62. (command "redraw") 
  63. (princ "\nThank you for your attention.")
  64. (princ "\nFor more information take a printout of MANUAL file : ")
  65. (princ (strcase *pgpg-dir*))(princ"PGDRAFT.DOC")
  66. (princ)
  67. )
  68. ; 
  69. ; New functions of Release 10 are simulated here
  70.  
  71. (defun handent(hnd)
  72.  (princ "Handle to entity call ")
  73. )
  74. (defun trans(pt en code)
  75.  (setq pt pt)
  76. )
  77. (defun getenv(name)
  78.  (setq name name)
  79. )
  80.  
  81. (defun findfile(aName / ok fd1)
  82.   (Setq fd1 (open aName "r"))
  83.   (if fd1
  84.     (progn (setq ok T) (Close fd1))
  85.     (Setq ok nil)
  86.   )
  87.  (setq ok ok)
  88. )
  89.  
  90. (command "vslide" (strcat *pgpg-dir* "pgdraft(welcome)"))
  91. (command "menu" (strcat *pgpg-dir* "pgmenu"))
  92. (princ)
  93.  
  94. ;     END OF PGINIT file for EARLIER VERIONS of AutoCAD 
  95.